SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
CREATE PROC [dbo].[SP_TASALD_CORP_Q02]
/*---------------------------------------------------------------------*/
/*----- Empresa          : OFISIS S.A.                            -----*/
/*----- Cliente          : OFISIS S.A.                         	  -----*/
/*----- Sistema          : Contabilidad                           -----*/
/*----- Modulo           : Corporacion                            -----*/
/*----- Programa         : Carga de consolidacion de empresas     -----*/
/*----- Nombre           : SP_TASALD_CORP_Q02                	  -----*/
/*----- Script           : TASALD_CORP                            -----*/
/*----- Desarrollado     : Franco Gamboni Koifman                 -----*/
/*----- Fecha            : 22/03/1997                             -----*/
/*----- Base de Datos    : MS SQL Server                          -----*/
/*----- Version BD       : 6.5                                    -----*/
/*----- Invoca a SP      :                                        -----*/
/*---------------------------------------------------------------------*/
/*---------------------------------------------------------------------*/
/*----- Modificado 1 por : Percy  Garcia                    -----*/
/*----- Fecha Modifica   : 07/03/2002                             -----*/
/*----- Detalle Modifica : Validacion del campo Ao Tabla     -----*/
/*----------------------------------Parametros-----------------------------------*/
/*---------------------------------------------------------------------*/
/*----- Modificado 2 por : Percy  Garcia                    -----*/
/*----- Fecha Modifica   : 18/03/2004                             -----*/
/*----- Detalle Modifica : EN TABLA TEMPORAL SE COLOCO EL NOMBRE DE EMPRESA A 50-----*/
/*----------------------------------Parametros-----------------------------------*/
/*---------------------------------------------------------------------*/
/*----- Drop Proc SP_TASALD_CORP_Q02                              -----*/
/*----- Grant Execute On SP_TASALD_CORP_Q02 To PUBLIC             -----*/
/*----- SP_TASALD_CORP_Q02                                   	  -----*/
/*---------------------------------------------------------------------*/
As
Declare
@CSCO_EMPR       	TD_VC_002,
@CSNO_EMPR           	TD_VC_050,
@CNNU_INFO_CORP 	TD_IN_001,
@CNNU_ACTU_ANO_CORP      TD_IN_004_ANNO,
@CNNU_ACTU_MES_CORP  	TD_IN_002_MESE,
@VNNU_ACTU_ANO_EMPR  	TD_IN_004_ANNO,
@VNNU_ACTU_MES_EMPR  	TD_IN_002_MESE,
@VSNU_PERI_ANO_MES   	varchar(6),
@VSNU_MINI_ANO_MES  	varchar(6),
@VNNU_MINI_ANO_CORP  	TD_IN_004_ANNO,
@VNNU_MINI_MES_CORP  	TD_IN_002_MESE

Create Table #TWSALD_CORP_Q02_1
(CO_EMPR          Char(02),
 NO_EMPR          Char(50),
 NU_CNTB_EMPR     Smallint NULL,
 NU_PERI_ANO_MES  Char(06) NULL,
 NU_ACTU_EMPR_ANO Smallint NULL,  
 NU_ACTU_EMPR_MES Smallint NULL,
 NU_ACTU_CORP_ANO Smallint NULL,
 NU_ACTU_CORP_MES Smallint NULL )
 Declare CU_TASALD_CORP_Q02_1 Cursor
 For
  select T1.CO_EMPR, T2.DE_NOMB, T1.NU_INFO_CORP, T1.NU_ACTU_MESE, T1.NU_ACTU_ANNO
  From TMPARA_CONT T1, TMEMPR T2
 Where
  T1.CO_EMPR = T2.CO_EMPR
  And t1.NU_ANNO = 9999
 Order By T1.CO_EMPR

Open CU_TASALD_CORP_Q02_1

 Fetch CU_TASALD_CORP_Q02_1 Into @CSCO_EMPR, @CSNO_EMPR, @CNNU_INFO_CORP,
   @CNNU_ACTU_MES_CORP, @CNNU_ACTU_ANO_CORP
 While @@fetch_status = 0
  Begin

    Select @VSNU_PERI_ANO_MES = Max(Convert(Char(4),NU_ANNO) +
    Substring(Convert(Char(3),NU_MESE+100),2,2))
     From TCFECH_PROC
     Where CO_EMPR      = @CSCO_EMPR       And
           NU_CNTB_EMPR = @CNNU_INFO_CORP And 
           ST_MAYO_CNTB = 'S' 
   
  Select @VNNU_ACTU_ANO_EMPR = Convert(Smallint, SubString(@VSNU_PERI_ANO_MES,1,4))
  Select @VNNU_ACTU_MES_EMPR = Convert(Smallint, SubString(@VSNU_PERI_ANO_MES,5,2))
 
  Insert Into #TWSALD_CORP_Q02_1
  (CO_EMPR, NO_EMPR, NU_CNTB_EMPR, NU_PERI_ANO_MES,
   NU_ACTU_EMPR_ANO, NU_ACTU_EMPR_MES, NU_ACTU_CORP_MES, NU_ACTU_CORP_ANO)
  Values(@CSCO_EMPR, @CSNO_EMPR, @CNNU_INFO_CORP, @VSNU_PERI_ANO_MES,     @VNNU_ACTU_ANO_EMPR, @VNNU_ACTU_MES_EMPR, @CNNU_ACTU_MES_CORP, @CNNU_ACTU_ANO_CORP)
   Fetch CU_TASALD_CORP_Q02_1 Into @CSCO_EMPR, @CSNO_EMPR, @CNNU_INFO_CORP, @CNNU_ACTU_MES_CORP, @CNNU_ACTU_ANO_CORP
  End
  Close CU_TASALD_CORP_Q02_1
  Deallocate  CU_TASALD_CORP_Q02_1
 Select @VSNU_MINI_ANO_MES = MIN(NU_PERI_ANO_MES)
  FROM #TWSALD_CORP_Q02_1
 Select @VNNU_MINI_ANO_CORP = Convert(Smallint, SubString(@VSNU_MINI_ANO_MES,1,4))
 Select @VNNU_MINI_MES_CORP = Convert(Smallint, SubString(@VSNU_MINI_ANO_MES,5,2)) 
 Select CO_EMPR, NO_EMPR, NU_CNTB_EMPR, NU_ACTU_EMPR_ANO,NU_ACTU_EMPR_MES,
  NU_ACTU_CORP_ANO, NU_ACTU_CORP_MES, @VNNU_MINI_ANO_CORP, @VNNU_MINI_MES_CORP
  From	#TWSALD_CORP_Q02_1
 Where	NU_ACTU_EMPR_ANO IS NOT NULL
 and	NU_ACTU_EMPR_MES IS NOT NULL
 Return
/*----------------------------------- Fin -------------------------------------*/

GO
